ocr: Microsott Excel - EMPX.XLS - File Edit View Insert Run Tools Window Help ABC ICA L fx - At - nn B - L - 70 - .0 .00 +.0 .00 - 1: 5o Sub EmpData() Declare varlables as objects Dim Jrasession As object Dim prabatabase As Object Di im EmpDynaset As Object Di im flds( () As Object Dim Iidcount As Integer Set orasession = reateonject - ("OracleinProcServer .xorasession") Set prabatabase = orasession.openpatabase "Oracle7", "scott/tiger", O8) Set EmpDynaset = oraDatabase.CreateDynaset ("select * from emp", 0&) Range ("A1:H15").Select selection.Clearcontents KADDIN Sheet Subroutines Sheet3 K Sheet4 & ...
